home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Mail / pine3.92 / pine / osdep / lstcmpnt.dos < prev    next >
Text File  |  1995-12-06  |  524b  |  25 lines
  1. /*----------------------------------------------------------------------
  2.       Return pointer to last component of pathname.
  3.  
  4.   Args: filename     -- The pathname.
  5.  
  6.  Result: Returned pointer points to last component in the input argument.
  7.   ----*/
  8. char *
  9. last_cmpnt(filename)
  10.     char *filename;
  11. {
  12.     register char *p = NULL, *q = filename;
  13.  
  14.     while(q = strchr(q, '\\'))
  15.       if(*++q)
  16.     p = q;
  17.  
  18.     if(!p && isalpha(*filename) && *(filename+1) == ':' && *(filename+2))
  19.       p = filename + 2;
  20.        
  21.     return(p);
  22. }
  23.  
  24.  
  25.